-- card: 16487 from stack: in.5
-- bmap block id: 14156
-- flags: 0000
-- background id: 3858
-- name: AppleLinkAddrBk
----- HyperTalk script -----
on CloseCard
  put empty into cd fld "Address list"
  set the scroll of cd fld "Address list" to 0
  pass closeCard
end CloseCard

on HideObjects
  hide cd fld "Address list"
  hide cd btn "Addresses"
  hide cd btn "Entries"
  hide cd btn "Both"
end HideObjects

on ShowObjects
  show cd fld "Address list"
  show cd btn "Addresses"
  show cd btn "Entries"
  show cd btn "Both"
end ShowObjects


-- part 2 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=9 top=292 right=326 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Entries
----- HyperTalk script -----
on mouseUp
  global errGlobal
  put AppleLinkAddrBk("Entries","noDialog:errGlobal") into addressList
  if errGlobal ≠ empty then
    answer "Error: “" & errGlobal & "”"
    put empty into errGlobal
  else
    put addressList into cd fld "Address list"
  end if
end mouseUp




-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=8 top=117 right=288 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Address List


-- part 4 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=92 top=292 right=326 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Addresses
----- HyperTalk script -----
on mouseUp
  global errGlobal
  put AppleLinkAddrBk("Addresses","noDialog:errGlobal") into addressList
  if errGlobal ≠ empty then
    answer "Error: “" & errGlobal & "”"
    put empty into errGlobal
  else
    put addressList into cd fld "Address list"
  end if
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=174 top=292 right=326 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Both
----- HyperTalk script -----
on mouseUp
  global errGlobal
  put AppleLinkAddrBk("Both", "noDialog:errGlobal") into addressList
  if errGlobal ≠ empty then
    answer "Error: “" & errGlobal & "”"
    put empty into errGlobal
  else
    put addressList into cd fld "Address list"
  end if
end mouseUp




-- part contents for background part 38
----- text -----
1/50

-- part contents for background part 20
----- text -----
     XFCN to return the contents of the AppleLink address book in the “AppleLink Outbasket” folder in the system folder.

AddressBook(“Addresses”|“Entries”|“Both”,<“noDialog:”errorGlobal>)

ADDRESSES: return the list of addresses only,
ie “CYNIC <CR> SKEPTIC”

ENTRIES: return the list of entries only,
ie “eric carlson <CR> anup murarka”

BOTH: return the ENTRIES, <tab> ,   ADDRESSES, ie “eric carlson <CR> anup murarka <CR> <TAB> CYNIC <CR> SKEPTIC”

This seemingly unusual (OK, unusual) scheme is used because a person can make "group addresses" by choosing the "Edit Address Book" menu item in AppleLink.  Any number of addresses can be group under a label, seperated by commas (and optionally spaces).   Additonally, any label can be used for an address book entry, not just the label supplied by AppleLink.